Deputies Expenditures Analysis: Our Questions

TODO Here I gonna talk about the datas

Link about it: http://www2.camara.leg.br/transparencia/acesso-a-informacao/copy_of_perguntas-frequentes/cota-para-o-exercicio-da-atividade-parlamentar

For this lab we gonna need the following package to be installed

install.packages("ggplot2")
install.packages("dplyr")
install.packages("tidyr")
install.packages("tidyverse")
install.packages("scales")
install.packages("plotly")

Loading the libraries

 library(ggplot2)
 library(dplyr)
 library(tidyr)
 library(tidyverse)
 library(scales)
 library(plotly)

Set up the workspace folder

setwd("~/git/data-analysis/Lab01")

Loading the data

data <- read_csv(("data/dadosCEAP.csv"))
montly_limit <- read_csv(("data/limiteMensalCEAP.csv"))
data$valorGlosa <- as.numeric(sub(",", ".", data$valorGlosa, fixed = TRUE)) 
data %>% 
  full_join(montly_limit, by=c("sgUF" = "UF")) -> data

Which deputies have expeended more money from CEAP? Which are the most economic?

Here we have two graphics that show the top 10 deputies that have expeended more money and the top 10 more economic.

Here we can see 10 deputies that have expeend more money which are:

• Edio Lopes: R$ 1648666
• Rocha: R$ 1526395
• Abel Mesquita Junior: R$ 1470778
• Alan Rick: R$ 1464612
• Jhonatan de Jesus: R$ 1463513

Now those are the ones who have expeended less money:

• Camilo Cola: R$ 0.62
• Eliseu Padilha: R$ 5.31
• Marcio Monteiro: R$ 14.18
• Marcelo Almeida: R$ 26.16
• Renan Filho: R$ 35.51

Which are the states that its deputies have more expenses abroad? Which are the states that its deputies have expended less abroad?

As we can see the hilight is São Paulo which have been the most expenses to abroad whit R$ 102366.56 followed by Minas Gerais whit R$ 79767.77 and Pernambuco whit R$ 70915.94. And alse we hilight Maranhão that have been expended only R$ 40.99 and Paraíba whit R$ 2288.29..

Which are the political groups that its deputies most use CEAP in the state of Paraíba? Which are the less use it?

PMDB is the group that most uses CEP whit a value of R$ 4011621.34 followed by PR whit R$ 1434506.56

Which are the deputies, by state, that most pass the CEAP limit??

Our data show that at least one deputie have passed his state CEAP limit, but ther are some most frequent, which are:

• Felipe Bornier
• Domingos Neto
• Jandira Feghali
• Paulo Abi-Ackel
• Rômulo Goveia

Which are the states whit more expense in airline tickets?

We are going to look only to expenses whit the description about airline tickes, once whit that information we will sum all values by states.

So what we’ve got it São Paulo is the state that expend more money then the other whit ailine ticket, and the total expeended was about R$ 23171817.73 and Rio de Janeiro whit R$16755188.64

Chose three groups and answer: which are the most used expenses in CEAP by the deputies form those groups?

Gonna chose PMDB, PT and DEM and take a close look in its expenses.

expense_most_required %>%
  plot_ly(y = ~reorder(tipoDespesa,expense), x = ~expense, type = "bar", color = ~tipoDespesa) %>%
  layout(title = "Expenses by the groups PMDB, PT and DEM",
         yaxis = list(title = "Expenses"),
         xaxis = list (title = "Total expendes in R$"))

n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

12 diferentes types of expenses and as far we can see the most expensice is airline tickets whit R$ 47353189.62 and very near we got deputies activities publicities whit R$ 40119480.33